home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed24.d64 / module 2 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  18KB  |  571 lines
  1. 10 REM VOCABULARY EXERCISE DESIGNED BY         BILL CUMBERLAND FEB 1989
  2. 15 POKE53280,0:POKE53281,0:POKE646,7:POKE53272,23
  3. 20 V$="2":REM MODULE IDENTIFICATION CODE
  4. 25 REM THIS MODULE WAS PREPARED BY ....
  5. 30 REM BILL CUMBERLAND - 1989:02:18
  6. 100 PRINT"[147]                                        [146]";
  7. 101 PRINT"                                        [146]";
  8. 102 PRINT"                [214][207][195][193][194] "V$"              [146]";
  9. 104 PRINT"                                           [146]";
  10. 105 PRINT"                                        [146]";
  11. 106 PRINT"                                        [146]";
  12. 107 PRINT"                                        [146]"
  13. 108 GOSUB9051:GOSUB9300:GOSUB660
  14. 109 PRINT"[147]                                        [146]";
  15. 110 PRINT"                                        [146]";
  16. 111 PRINT"    [212]HIS MODULE WAS PREPARED BY....     [146]";
  17. 112 PRINT"            [194]ILL [195]UMBERLAND             [146]";
  18. 113 PRINT"               03:04:89                 [146]";
  19. 114 PRINT"                                        [146]":GOSUB9052
  20. 115 PRINT"[147]   [212]HE FOLLOWING WORDS ARE EXAMINED:"
  21. 120 PRINT"MULCH, AERATION, POLLINATE, GAZEBO,     FLORA, TRELLIS, TENDRIL,";
  22. 125 PRINT" BONSAI, HARROW,ARABLE, BURGEON, SUCCULENT, PERENNIAL, ";
  23. 130 PRINT" HUMUS, PROPAGATE, PHOTOTROPISM, WINDOW, TUBER, TOPIARY, FALLOW
  24. 135 [153]"          RIGHT$NSTRUCTIONS?  Y/N":[141]9051:[141]9300
  25. 140 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[167]140
  26. 150 [139]R$[178]"N"[167]2000
  27. 200 [153]"LOAD             RIGHT$NSTRUCTIONS
  28. 210 PRINT"  [212]HIS IS ONE OF A SERIES OF MODULES      DESIGNED TO HELP YOU ";
  29. 220 PRINT"BUILD A GOOD       WORKING VOCABULARY.
  30. 230 [141]9054
  31. 240 [153]"LOAD  (null)EAD THE UNDERLINED WORD AND CHOOSE     ONE OF THE FIVE WORDS ";
  32. 250 [153]"WHICH HAS A       MEANING SIMILAR TO THE UNDERLINED       WORD.
  33. 260 PRINT"  [197]XAMPLE:    MIDDLE
  34. 270 [153]"              USRUSRUSRUSRUSRUSR
  35. 280 PRINT"           1. WARFARE
  36. 290 [153]"           2. MARCHED
  37. 300 PRINT"           3. LAWFUL
  38. 310 [153]"           4. CENTRE
  39. 320 PRINT"           5. RANCH
  40. 330 [153]"  (null)INCE 'CENTRE' IS THE CORRECT CHOICE,   YOU WOULD ENTER '4'";
  41. 340 [153]" AS YOUR RESPONSE    AND THEN PRESS (null)VAL(null)(null)(null)(null)WAIT
  42. 350 FORT=1TO4000:NEXT:PRINT"      [208]RESS  [211][208][193][195][197] [146] TO CONTINUE.
  43. 360 [161]R$:[139]R$[179][177][199](32)[167]360
  44. 370 [153]"LOAD  (null)RESS 1 TO REVIEW INSTRUCTIONS.
  45. 380 PRINT"  [208]RESS 2 TO START THE EXERCISE.
  46. 390 [161]R$:[139]R$[179][177]"1"[175]R$[179][177]"2"[167]390
  47. 400 [139]R$[178]"1"[167]200
  48. 410 [153]"LOAD  LEFT$ERE ARE TWENTY QUESTIONS FOR YOU.
  49. 420 GOSUB9052:PRINT"[147]"
  50. 430 W=1
  51. 440 GOTO2000
  52. 499 :
  53. 500 REM TERMINATION OF MODULE
  54. 505 IF C>18 THEN 535
  55. 510 IF C>16 THEN 570
  56. 515 IF C>14 THEN 595
  57. 520 PRINT"[147]  [217]OU SEEM TO HAVE PROBLEMS!
  58. 525 [153]"  (null)EE YOUR TEACHER!"
  59. 530 [141]9059:[137]540
  60. 535 [153]"LOAD   VALXCELLENT WORK!":[141]9052
  61. 540 [153]"   STR$O YOU WISH TO REVIEW THE DEFINITIONS   OF THESE WORDS?  Y/N
  62. 545 GETR$:IFR$<>"Y"ANDR$<>"N"THEN545
  63. 550 IFR$="Y"THEN5000
  64. 555 IFR$="N"THENPRINT"[147]  [212]RY MODULE [214][207][195][193][194] 3 WHEN YOU HAVE        THE TIME.
  65. 560 [141]9052:[137]9500
  66. 570 [153]"LOAD   CHR$OOD WORK!":[141]9052:[153]"   (null)OU MISSED"[197](W$)"WORDS"
  67. 575 [141]9055
  68. 580 [153]"   (null)ET'S REVIEW THE DEFINITIONS OF         THESE WORDS?
  69. 585 GOSUB9053:GOTO5000
  70. 590 GOSUB9055
  71. 595 PRINT"[147]  [217]OU ARE NOT DOING VERY WELL!":GOSUB9054
  72. 600 PRINT"  [201] WANT YOU TO REVIEW THE MEANING OF     THESE WORDS NOW."
  73. 605 GOSUB9053:PRINT"  [208]RESS  [211][208][193][195][197] [146] TO CONTINUE.
  74. 610 [161]R$:[139]R$[179][177][199](32)[167]610
  75. 615 [137]5000
  76. 654 :
  77. 655 [141]9054
  78. 660 [153]"      (null)RESS  (null)(null)ATNLENVAL WAIT TO CONTINUE.
  79. 665 GETR$:IFR$<>CHR$(32)THEN665
  80. 670 RETURN
  81. 1999 :
  82. 2000 PRINT"[147]":POKE53280,9:POKE53281,15:POKE646,0
  83. 2010 PRINT" 1       MULCH
  84. 2015 [153]"         USRUSRUSRUSRUSR
  85. 2020 PRINT"      1. GARDEN PATH
  86. 2025 [153]"      2. ORGANIC FERTILIZER
  87. 2030 PRINT"      3. GROUND COVERING
  88. 2035 [153]"      4. SEED MIXTURE
  89. 2040 PRINT"      5. DRAINAGE
  90. 2045 [141]9000
  91. 2050 [139]R$[178]"3"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2100
  92. 2060 [141]9200
  93. 2065 [153]"  (null)O, THE CORRECT CHOICE IS...
  94. 2070 PRINT"         GROUND COVERING [146].":W=W+1
  95. 2075 GOSUB9052
  96. 2080 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  97. 2099 :
  98. 2100 PRINT"[147]":POKE53280,8:POKE53281,15:POKE646,0
  99. 2110 PRINT" 2       AERATION
  100. 2115 [153]"         USRUSRUSRUSRUSRUSRUSRUSR
  101. 2120 PRINT"      1. VENTILATION
  102. 2125 [153]"      2. EXPANSION
  103. 2130 PRINT"      3. LIGHTNESS
  104. 2135 [153]"      4. GROWTH
  105. 2140 PRINT"      5. FLYING
  106. 2145 [141]9000
  107. 2150 [139]R$[178]"1"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2200
  108. 2155 [141]9200
  109. 2160 [153]"  (null)O, THE CORRECT CHOICE IS ...
  110. 2165 PRINT"         VENTILATION [146].":W=W+1
  111. 2170 GOSUB9052
  112. 2175 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  113. 2199 :
  114. 2200 PRINT"[147]":POKE53280,5:POKE53281,15:POKE646,0
  115. 2210 PRINT" 3       POLLINATE
  116. 2215 [153]"         USRUSRUSRUSRUSRUSRUSRUSRUSR
  117. 2220 PRINT"      1. TO SCATTER SEED
  118. 2225 [153]"      2. TO CUT
  119. 2230 PRINT"      3. TO FERTILIZE
  120. 2235 [153]"      4. TO BLEND
  121. 2240 PRINT"      5. TO IRRIGATE
  122. 2245 [141]9000
  123. 2250 [139]R$[178]"3"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2300
  124. 2255 [141]9200
  125. 2260 [153]"  (null)O, THE CORRECT CHOICE IS ...
  126. 2265 PRINT"         TO FERTILIZE [146]":W=W+1
  127. 2270 GOSUB9052
  128. 2275 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  129. 2299 :
  130. 2300 PRINT"[147]":POKE53280,3:POKE53281,15:POKE646,0
  131. 2310 PRINT" 4       GAZEBO
  132. 2315 [153]"         USRUSRUSRUSRUSRUSRUSR
  133. 2320 PRINT"      1. LARGE GARDEN STATUE
  134. 2325 [153]"      2. WATER SPRINKLER
  135. 2330 PRINT"      3. SMALL [193]FRICAN ANIMAL
  136. 2335 [153]"      4. GENTLY SLOPING HILL
  137. 2340 PRINT"      5. SUMMERHOUSE
  138. 2345 [141]9000
  139. 2350 [139]R$[178]"5"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2400
  140. 2355 [141]9200
  141. 2360 [153]"  (null)O, THE CORRECT CHOICE IS ...
  142. 2365 PRINT"         SUMMERHOUSE [146]":W=W+1
  143. 2370 GOSUB9052
  144. 2375 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  145. 2399 :
  146. 2400 PRINT"[147]":POKE53280,3:POKE53281,15:POKE646,0
  147. 2410 PRINT" 5       FLORA
  148. 2415 [153]"         USRUSRUSRUSRUSR
  149. 2420 PRINT"      1. BRILLIANT COLOUR
  150. 2425 [153]"      2. PLANT LIFE
  151. 2430 PRINT"      3. ANIMAL LIFE
  152. 2435 [153]"      4. TINY, HELPFUL INSECT
  153. 2440 PRINT"      5. GROUND OATS
  154. 2445 [141]9000
  155. 2450 [139]R$[178]"2"[167] [141]9100:[153]"         LENORRECT!":[141]9052:[137]2500
  156. 2455 [141]9200
  157. 2460 [153]"  (null)O, THE CORRECT CHOICE IS ...
  158. 2465 PRINT"         PLANT LIFE [146]":W=W+1
  159. 2470 GOSUB9052
  160. 2475 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  161. 2499 :
  162. 2500 PRINT"[147]":POKE53280,7:POKE53281,15:POKE646,0
  163. 2510 PRINT" 6       TRELLIS
  164. 2515 [153]"         USRUSRUSRUSRUSRUSRUSR
  165. 2520 PRINT"      1. HANGING PLANT
  166. 2525 [153]"      2. WINDOW FLOWER BOX
  167. 2530 PRINT"      3. CLIMBING VINE
  168. 2535 [153]"      4. SUPPORTING STRUCTURE
  169. 2540 PRINT"      5. LAMP STAND
  170. 2545 [141]9000
  171. 2550 [139]R$[178]"4"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2600
  172. 2555 [141]9200
  173. 2560 [153]"  (null)O, THE CORRECT CHOICE IS ...
  174. 2565 PRINT"         SUPPORTING STRUCTURE [146]":W=W+1
  175. 2570 GOSUB9052
  176. 2575 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  177. 2599 :
  178. 2600 PRINT"[147]":POKE53280,2:POKE53281,15:POKE646,0
  179. 2610 PRINT" 7       TENDRIL
  180. 2615 [153]"         USRUSRUSRUSRUSRUSRUSR
  181. 2620 PRINT"      1. THICK STALK
  182. 2625 [153]"      2. LEAF HAIR
  183. 2630 PRINT"      3. CONTAINER FOR PLANTS
  184. 2635 [153]"      4. SLENDER STEM
  185. 2640 PRINT"      5. FARM WAGON
  186. 2645 [141]9000
  187. 2650 [139]R$[178]"4"[167] [141]9100:[153]"         LENORRECT!":[141]9052:[137]2700
  188. 2655 [141]9200
  189. 2660 [153]"  (null)O, THE CORRECT CHOICE IS ...
  190. 2665 PRINT"         SLENDER STEM [146]":W=W+1
  191. 2670 GOSUB9052
  192. 2675 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  193. 2699 :
  194. 2700 PRINT"[147]":POKE53280,11:POKE53281,15:POKE646,0
  195. 2710 PRINT" 8       BONSAI
  196. 2715 [153]"         USRUSRUSRUSRUSRUSR
  197. 2720 PRINT" THE ART OF 1. USING PEBBLES AND STONES
  198. 2725 [153]"            2. MID$APANESE LANDSCAPING
  199. 2730 PRINT"            3. GROWING DWARF TREES
  200. 2735 [153]"            4. HYDROPONIC TOMATOES
  201. 2740 PRINT"            5. [202]APANESE VEGETABLE
  202. 2745 [141]9000
  203. 2750 [139]R$[178]"3"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2800
  204. 2755 [141]9200
  205. 2760 [153]"  (null)O, THE CORRECT CHOICE IS ...
  206. 2765 PRINT"         GROWING DWARF TREES [146]":W=W+1
  207. 2770 GOSUB9052
  208. 2775 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  209. 2799 :
  210. 2800 PRINT"[147]":POKE53280,10:POKE53281,15:POKE646,0
  211. 2810 PRINT" 9       HARROW
  212. 2815 [153]"         USRUSRUSRUSRUSRUSR
  213. 2820 PRINT"      1. TO LEVEL PLOWED LAND
  214. 2825 [153]"      2. TO GRADE IN CONTOURS
  215. 2830 PRINT"      3. TO DECORATE
  216. 2835 [153]"      4. TO SET FENCES
  217. 2840 PRINT"      5. TO DIG DITCHES
  218. 2845 [141]9000
  219. 2850 [139]R$[178]"1"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2900
  220. 2855 [141]9200
  221. 2860 [153]"  (null)O, THE CORRECT CHOICE IS ...
  222. 2865 PRINT"         TO LEVEL PLOWED LAND [146]":W=W+1
  223. 2870 GOSUB9052
  224. 2875 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  225. 2899 :
  226. 2900 PRINT"[147]":POKE53280,5:POKE53281,15:POKE646,0
  227. 2910 PRINT" 10      ARABLE
  228. 2915 [153]"         USRUSRUSRUSRUSRUSR
  229. 2920 PRINT"      1. EASILY CRUMBLED
  230. 2925 [153]"      2. FIT FOR PLOWING
  231. 2930 PRINT"      3. LIGHT AND FLUFFY
  232. 2935 [153]"      4. DRIED OUT
  233. 2940 PRINT"      5. DESERT LAND
  234. 2945 [141]9000
  235. 2950 [139]R$[178]"2"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]3000
  236. 2955 [141]9200
  237. 2960 [153]"  (null)O, THE CORRECT CHOICE IS ...
  238. 2965 PRINT"         FIT FOR PLOWING [146]":W=W+1
  239. 2970 GOSUB9052
  240. 2975 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  241. 2999 :
  242. 3000 PRINT"[147]":POKE53280,12:POKE53281,15:POKE646,0
  243. 3010 PRINT" 11      BURGEON
  244. 3015 [153]"         USRUSRUSRUSRUSRUSRUSR
  245. 3020 PRINT"      1. TO SPROUT
  246. 3025 [153]"      2. TO CROWD TOGETHER
  247. 3030 PRINT"      3. TO WILT
  248. 3035 [153]"      4. TO COVER
  249. 3040 PRINT"      5. TO PRUNE
  250. 3045 [141]9000
  251. 3050 [139]R$[178]"1"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]3100
  252. 3055 [141]9200
  253. 3060 [153]"  (null)O, THE CORRECT CHOICE IS ...
  254. 3065 PRINT"         TO SPROUT [146]":W=W+1
  255. 3070 GOSUB9052
  256. 3075 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053 :GOSUB9060
  257. 3099 :
  258. 3100 PRINT"[147]":POKE53280,10:POKE53281,15:POKE646,0
  259. 3110 PRINT" 12      SUCCULENT
  260. 3115 [153]"         USRUSRUSRUSRUSRUSRUSRUSRUSR
  261. 3120 PRINT"      1. SMOOTH
  262. 3125 [153]"      2. TENDER
  263. 3130 PRINT"      3. JUICY
  264. 3135 [153]"      4. TASTY
  265. 3140 PRINT"      5. SWEET
  266. 3145 [141]9000
  267. 3150 [139]R$[178]"3"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]3200
  268. 3155 [141]9200
  269. 3160 [153]"  (null)O, THE CORRECT CHOICE IS ...
  270. 3165 PRINT"         JUICY [146]":W=W+1
  271. 3170 GOSUB9052
  272. 3175 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  273. 3199 :
  274. 3200 PRINT"[147]":POKE53280,4:POKE53281,15:POKE646,0
  275. 3210 PRINT" 13      PERENNIAL
  276. 3215 [153]"         USRUSRUSRUSRUSRUSRUSRUSRUSR
  277. 3220 PRINT"      1. RARE
  278. 3225 [153]"      2. INFREQUENT
  279. 3230 PRINT"      3. EVERGREEN
  280. 3235 [153]"      4. LASTING
  281. 3240 PRINT"      5. COMMON
  282. 3245 [141]9000
  283. 3250 [139]R$[178]"4"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]3300
  284. 3255 [141]9200
  285. 3260 [153]"  (null)O, THE CORRECT CHOICE IS ...
  286. 3265 PRINT"         LASTING [146]":W=W+1
  287. 3270 GOSUB9052
  288. 3275 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  289. 3299 :
  290. 3300 PRINT"[147]":POKE53280,3:POKE53281,15:POKE646,0
  291. 3310 PRINT" 14      HUMUS
  292. 3315 [153]"         USRUSRUSRUSRUSR
  293. 3320 PRINT"      1. SANDY MIXTURE
  294. 3325 [153]"      2. SOIL BACTERIA
  295. 3330 PRINT"      3. DECOMPOSED MATTER
  296. 3335 [153]"      4. MOISTURE
  297. 3340 PRINT"      5. TROPICAL FUNGUS
  298. 3345 [141]9000
  299. 3350 [139]R$[178]"3"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]3400
  300. 3355 [141]9200
  301. 3360 [153]"  (null)O, THE CORRECT CHOICE IS ...
  302. 3365 PRINT"         DECOMPOSED MATTER [146]":W=W+1
  303. 3370 GOSUB9052
  304. 3375 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  305. 3399 :
  306. 3400 PRINT"[147]":POKE53280,13:POKE53281,15:POKE646,0
  307. 3410 PRINT" 15      PROPAGATE
  308. 3415 [153]"         USRUSRUSRUSRUSRUSRUSRUSRUSR
  309. 3420 PRINT"      1. TO UNFOLD
  310. 3425 [153]"      2. TO REPRODUCE
  311. 3430 PRINT"      3. TO BUILD UP
  312. 3435 [153]"      4. TO SUPPORT
  313. 3440 PRINT"      5. TO MOVE
  314. 3445 [141]9000
  315. 3450 [139]R$[178]"2"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]3500
  316. 3455 [141]9200
  317. 3460 [153]"  (null)O, THE CORRECT CHOICE IS ...
  318. 3465 PRINT"         TO REPRODUCE [146]":W=W+1
  319. 3470 GOSUB9052
  320. 3475 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  321. 3480 PRINT"  [198]ROM [204]ATIN 'PROPAGARE'":GOSUB9060
  322. 3500 PRINT"[147]":POKE53280,7:POKE53281,15:POKE646,0
  323. 3510 PRINT" 16      PHOTOTROPISM
  324. 3515 [153]"         USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR
  325. 3520 PRINT"      1. SCOUNDREL
  326. 3525 [153]"      2. MOVEMENT TOWARD OR FROM LIGHT"
  327. 3530 [153]"      3. PLANT PHOTOGRAPHY
  328. 3535 PRINT"      4. TROPICAL ENVIRONMENT
  329. 3540 [153]"      5. WORSHIP OF TROPICAL FLOWERS
  330. 3545 GOSUB9000
  331. 3550 IFR$="2"THEN GOSUB9100:PRINT"         [195]ORRECT!":GOSUB9052:GOTO3600
  332. 3555 GOSUB9200
  333. 3560 PRINT"  [206]O, THE CORRECT CHOICE IS ...
  334. 3565 [153]"         MOVEMENT TOWARD OR FROM LIGHT WAIT"
  335. 3570 [141]9052:W[178]W[170]1
  336. 3575 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
  337. 3585 [141]9060
  338. 3600 [153]"LOAD":[151]53280,13:[151]53281,15:[151]646,0
  339. 3610 [153]" 17      WINDROW
  340. 3615 PRINT"         [183][183][183][183][183][183][183]
  341. 3620 [153]"      1. SOFT BREEZE
  342. 3625 PRINT"      2. RIPPLED WATER
  343. 3630 [153]"      3. A FINE SPRAY
  344. 3635 PRINT"      4. GROVE OF FRUIT TREES
  345. 3640 [153]"      5. ROW OF HAY
  346. 3645 GOSUB9000
  347. 3650 IFR$="5"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO3700
  348. 3655 GOSUB9200
  349. 3660 PRINT"  [206]O, THE CORRECT CHOICE IS ...
  350. 3665 [153]"         ROW OF HAY WAIT":W[178]W[170]1
  351. 3670 [141]9052
  352. 3675 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
  353. 3700 [153]"LOAD":[151]53280,3:[151]53281,15:[151]646,0
  354. 3710 [153]" 18      TUBER
  355. 3715 PRINT"         [183][183][183][183][183]
  356. 3720 [153]"      1. PART OF A GREENHOUSE
  357. 3725 PRINT"      2. GARDEN TOOL
  358. 3730 [153]"      3. RIPE FRUIT
  359. 3735 PRINT"      4. ROOT
  360. 3740 [153]"      5. PART OF WATERING SYSTEM
  361. 3745 GOSUB9000
  362. 3750 IFR$="4"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO3800
  363. 3755 GOSUB9200
  364. 3760 PRINT"  [206]O, THE CORRECT CHOICE IS ...
  365. 3765 [153]"         ROOT WAIT":W[178]W[170]1
  366. 3770 [141]9052
  367. 3775 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
  368. 3800 [153]"LOAD":[151]53280,10:[151]53281,15:[151]646,0
  369. 3810 [153]" 19      TOPIARY
  370. 3815 PRINT"         [183][183][183][183][183][183][183]
  371. 3817 [153]" (null)HE ART OF ..
  372. 3820 PRINT"      1. DESIGNING GARDENS
  373. 3825 [153]"      2. TRIMMING SHRUBS
  374. 3830 PRINT"      3. SURVEYING GARDENS
  375. 3835 [153]"      4. GROWING MINIATURE TREES
  376. 3840 PRINT"      5. GROWING HERBS INDOORS
  377. 3845 [141]9000
  378. 3850 [139]R$[178]"2"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]3900
  379. 3855 [141]9200
  380. 3860 [153]"  (null)O, THE CORRECT CHOICE IS ...
  381. 3865 PRINT"         TRIMMING SHRUBS [146]":W=W+1
  382. 3870 GOSUB9052
  383. 3875 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
  384. 3900 PRINT"[147]":POKE53280,7:POKE53281,15:POKE646,0
  385. 3910 PRINT" 20      FALLOW
  386. 3915 [153]"         USRUSRUSRUSRUSRUSR
  387. 3917 PRINT" [208]ERTAINING TO:
  388. 3920 [153]"      1. AN UNSEEDED FIELD
  389. 3925 PRINT"      2. BARREN AREA
  390. 3930 [153]"      3. GULLY
  391. 3935 PRINT"      4. COASTAL MARSH
  392. 3940 [153]"      5. WOOD LOT
  393. 3955 GOSUB9000
  394. 3960 IFR$="1"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO4500
  395. 3965 GOSUB9200
  396. 3970 PRINT"  [206]O, THE CORRECT CHOICE IS ...
  397. 3975 [153]"         AN UNSEEDED FIELD WAIT":W[178]W[170]1:[141]9052:[141]9060
  398. 4500 [153]"LOAD":[151]53280,0:[151]53281,0:[151]646,1:C[178]20[171]W
  399. 4505 [153]"  (null)OU HAVE COMPLETED THIS MODULE AND
  400. 4510 PRINT"  GOT";C;"WORDS CORRECT.":GOSUB9055
  401. 4515 GOTO500
  402. 4999 :
  403. 5000 PRINT"[147]":POKE53280,12:POKE53281,12:POKE646,0
  404. 5005 PRINT"              [196][197][198][201][206][201][212][201][207][206][211] [146]
  405. 5100 [153]" 1.  (null)(null)(null)LENLEFT$
  406. 5110 PRINT"     [199]ROUND COVERING THAT IS MADE UP OF      LEAVES, STRAW, ";
  407. 5120 PRINT"AND THE LIKE TO          PROTECT PLANTS.
  408. 5130 [153]" * (null)IDDLE VALNGLISH 'MOLSH' (SOFT)
  409. 5140 GOSUB9070
  410. 5200 PRINT"[147] 2.  [193][197][210][193][212][201][207][206]
  411. 5210 [153]"     (null)ENTILATION; EXPOSURE TO AIR            CIRCULATION; AS, ";
  412. 5220 [153]"THE AERATION OF        SOIL BY EARTHWORMS.
  413. 5230 PRINT" * [199]REEK 'AER' (AIR) "
  414. 5240 GOSUB9070
  415. 5300 PRINT"[147] 3.  [208][207][204][204][201][206][193][212][197]
  416. 5310 [153]"     (null)O FERTILIZE, AS WHEN BEES OR WIND      CARRY POLLEN ";
  417. 5320 [153]"CONSISTING OF MALE SEX     CELLS TO THE FEMALE PARTS OF A
  418. 5330 PRINT"     FLOWER.
  419. 5340 [153]" * (null)ATIN 'POLLEN' (POWDER)"
  420. 5350 [141]9070
  421. 5400 [153]"LOAD 4.  CHR$ATN(null)VALPEEK(null)
  422. 5410 PRINT"     [211]UMMERHOUSE; ANY FREESTANDING,          ROOFED STRUCTURE ";
  423. 5420 PRINT"THAT IS OPEN ON        ALL SIDES.
  424. 5430 [153]" * (null)ATIN FROM 'GAZE'
  425. 5440 GOSUB9070
  426. 5500 PRINT"[147] 5.  [198][204][207][210][193]
  427. 5510 [153]"     ATNLL THE PLANT LIFE OF A PARTICULAR      PLACE AND TIME."
  428. 5520 [153]" * (null)ATIN 'ASCLORA' ((null)OMAN GODDESS OF         FLOWERS.
  429. 5530 GOSUB9070
  430. 5600 PRINT"[147] 6.  [212][210][197][204][204][201][211]
  431. 5610 [153]"     (null)TRUCTURE MADE OF THIN PIECES OF        WOOD OR METAL TO ";
  432. 5620 [153]"SUPPORT CLIMBING       PLANTS.
  433. 5630 PRINT" * [204]ATIN 'TRI' (THREE) 'LICIUM' (THREAD)
  434. 5640 [141]9070
  435. 5700 [153]"LOAD 7.  (null)VAL(null)STR$(null)RIGHT$(null)
  436. 5710 PRINT"     [193] SLENDER, SPIRALLING STEM THAT         COILS AROUND ";
  437. 5720 PRINT"AN OBJECT.
  438. 5730 [153]"   * ASCRENCH 'TENDRON' (TENDER SHOOT)
  439. 5740 GOSUB9070
  440. 5800 PRINT"[147] 8.  [194][207][206][211][193][201]
  441. 5810 [153]"     (null)ECHNIQUE OF GROWING DWARF TREES        OR SHRUBS IN ";
  442. 5820 [153]"SMALL POTS."
  443. 5830 [153]"   * MID$APANESE (POTTED PLANT)
  444. 5840 GOSUB9070
  445. 5900 PRINT"[147] 9.  [200][193][210][210][207][215]
  446. 5905 [153]"     (null)O LEVEL PLOWED LAND WITH A FARM        IMPLEMENT THAT ";
  447. 5910 [153]"HAS MANY SPIKELIKE        DISKS."
  448. 5915 [153]"   * (null)IDDLE VALNGLISH 'HARWE'
  449. 5920 GOSUB9070
  450. 5950 PRINT"[147] 10. [193][210][193][194][204][197]
  451. 5955 [153]"     ATN DESCRIPTION OF LAND FIT FOR           PLOWING AND FOR ";
  452. 5960 [153]"GROWING CROPS."
  453. 5965 [153]"   * (null)ATIN 'ARARE' (TO PLOW)
  454. 5970 GOSUB9070
  455. 6000 PRINT"[147] 11. [194][213][210][199][197][207][206]
  456. 6010 [153]"     (null)O SPROUT; DEVELOP BUDS, SHOOTS,        LEAVES; AS, ";
  457. 6020 [153]"(null)ILDFLOWERS BURGEON         IN THE SPRING.
  458. 6030 PRINT"     [193]LSO, TO FLOURISH; AS, A PERSON'S       BURGEONING BUSINESS."
  459. 6040 PRINT"   * [198]RENCH 'BURJON' (BUD)
  460. 6050 [141]9070
  461. 6100 [153]"LOAD 12. (null)(null)LENLEN(null)(null)VAL(null)(null)
  462. 6110 PRINT"     [202]UICY; AS, A SUCCULENT STRAWBERRY.      [193]LSO, OF PLANTS ";
  463. 6120 PRINT"HAVING THICK,           FLESHY LEAVES.
  464. 6130 [153]"   * (null)ATIN 'SUCUS' (JUICE, SAP)
  465. 6140 GOSUB9070
  466. 6200 PRINT"[147] 13. [208][197][210][197][206][206][201][193][204]
  467. 6210 [153]"     (null)ASTING, ENDURING; AS, (null)ERENNIAL        PLANTS LIVE FOR ";
  468. 6220 [153]"MORE THAN TWO YEARS.
  469. 6230 PRINT"   * [204]ATIN 'PERENIS'
  470. 6240 [141]9070
  471. 6300 [153]"LOAD 14. LEFT$(null)(null)(null)(null)
  472. 6310 PRINT"     [208]ARTIALLY DECOMPOSED PLANT AND          ANIMAL MATTER ";
  473. 6320 PRINT"THAT MAKES THE            SOIL RICH.
  474. 6330 [153]"   * (null)ATIN (SOIL, EARTH)
  475. 6340 GOSUB9070
  476. 6400 PRINT"[147] 15. [208][210][207][208][193][199][193][212][197]
  477. 6410 [153]"     (null)O REPRODUCE; CAUSE A PLANT OR          ANIMAL TO BREED OR ";
  478. 6420 [153]"MULTPLY.
  479. 6430 PRINT"   * [204]ATIN 'PROPAGARE'
  480. 6440 [141]9070
  481. 6500 [153]"LOAD 16. (null)LEFT$(null)(null)(null)(null)(null)(null)(null)RIGHT$(null)(null)
  482. 6510 PRINT"     [205]OVEMENT OF A PLANT TOWARDS OR          AWAY FROM LIGHT ";
  483. 6520 PRINT"SOURCES.
  484. 6530 [153]"   * CHR$REEK 'PHOTO' (LIGHT) AND               'TROPOS'";
  485. 6540 [153]" (TURNING)"
  486. 6550 [141]9070
  487. 6600 [153]"LOAD 17. (null)RIGHT$(null)STR$(null)(null)(null)
  488. 6610 PRINT"     [210]OW OF HAY RAKED TOGETHER TO DRY        BEFORE BEING STACKED.
  489. 6620 [153]"     ATNNY SIMILAR ROW; AS, DRY LEAVES         BLOWN IN WINDROWS.
  490. 6630 PRINT"   * [197]NGLISH 'WIND' AND 'ROWS'
  491. 6640 [141]9070
  492. 6700 [153]"LOAD 18. (null)(null)PEEKVAL(null)
  493. 6710 PRINT"     [211]HORT, THICK, ROUNDED ROOT              PRODUCING BUDS ";
  494. 6720 PRINT"THAT WILL LATER          DEVELOP INTO NEW PLANTS.
  495. 6730 [153]"   * (null)ATIN 'TUBER' (SWELLING)
  496. 6740 GOSUB9070
  497. 6800 PRINT"[147] 19. [212][207][208][201][193][210][217]
  498. 6810 [153]"     (null)HE ART OF TRIMMING SHRUBS, TREES       AND LAWNS INTO ";
  499. 6820 [153]"ORNAMENTAL SHAPES.
  500. 6830 PRINT"   * [204]ATIN 'TOPIA' (ORNAMENTAL               GARDENING.
  501. 6840 [141]9070
  502. 6900 [153]"LOAD 20. ASCATN(null)(null)(null)(null)
  503. 6910 PRINT"     [208]ERTAINING TO A FIELD LEFT UNSEEDED - AFTER BEING ";
  504. 6920 PRINT"PLOWED AND HARROWED.
  505. 6930 [153]"     (null)O REGAIN FERTILITY.
  506. 6940 PRINT"   * [207]LD [197]NGLISH 'FEALIG' (PLOWED LAND)
  507. 6950 [141]9070
  508. 8500 [153]"LOAD":[151]53280,0:[151]53281,0:[151]646,7
  509. 8505 [139][197](W$)[179]3[167][137]8565
  510. 8515 [153]"              (null)ATN(null)(null)RIGHT$(null)CHR$ WAITSYS
  511. 8520 PRINT"   [201]F YOU MISSED MORE THAN TWO WORDS       YOU SHOULD REPEAT THIS";
  512. 8525 PRINT" MODULE."
  513. 8530 GOSUB 9052
  514. 8565 PRINT"[147]    [212]HE NEXT MODULE IN THIS SERIES IS                 [214][207][195][193][194] 3
  515. 8570 [141]9052
  516. 8575 [153]"    (null)EMEMBER....":[141]9051
  517. 8580 [153]"   RIGHT$F YOU KNOW THE WORDS - YOU CAN         COMMUNICATE!
  518. 8585 GOSUB9052
  519. 8590 PRINT"    [193] GOOD VOCABULARY IS WORTH [210][197][193][204]         GOLD!":GOSUB9059
  520. 8595 GOTO9500
  521. 9000 INPUT"    ";R$
  522. 9005 IFR$<>"1"ANDR$<>"2"ANDR$<>"3"ANDR$<>"4"ANDR$<>"5"THEN 9000
  523. 9010 RETURN
  524. 9050 REM TIME SELECTORS
  525. 9051 FORT=1TO1000:NEXT:RETURN
  526. 9052 FORT=1TO2000:NEXT:RETURN
  527. 9053 FORT=1TO3000:NEXT:RETURN
  528. 9054 FORT=1TO4000:NEXT:RETURN
  529. 9055 FORT=1TO5000:NEXT:RETURN
  530. 9059 FORT=1TO9000:NEXT:RETURN
  531. 9060 GOSUB 9052
  532. 9061 PRINT"  [208]RESS  [211][208][193][195][197] [146] TO CONTINUE.
  533. 9062 [161]R$:[139]R$[179][177][199](32)[167]9062
  534. 9063 [142]
  535. 9070 [141] 9052
  536. 9071 [153]"   (null)RESS  (null)(null)ATNLENVAL WAIT TO CONTINUE.
  537. 9072 GETR$:IFR$<>CHR$(32)THEN9072
  538. 9073 RETURN
  539. 9099 :
  540. 9100 REM 'YES' SOUND
  541. 9105 S=54272:FORS=STOS+28:POKEE,0:NEXT
  542. 9110 POKE54296,15:POKE54277,42:POKE54278,250
  543. 9115 POKE54276,23:POKE54273,23:POKE54272,191
  544. 9120 FORT=1TO100:NEXT:POKE54276,32:FORT=1TO200:NEXT
  545. 9125 POKE54296,0:RETURN
  546. 9199 :
  547. 9200 REM 'NO' SOUND
  548. 9205 S=54272:FORS=STOS+28:POKEE,0:NEXT
  549. 9210 POKE54296,15:POKE54277,18:POKE54278,242
  550. 9215 POKE54276,33:POKE54273,4:POKE54272,48
  551. 9220 FORT=1TO300:NEXT:POKE54276,32:FORT=1TO400:NEXT
  552. 9225 FORE=STOS+28:POKEE,0:NEXT:RETURN
  553. 9299 :
  554. 9300 REM 'BLIP' SOUND
  555. 9305 S=54272:FORL=STOS+28:POKEL,0:NEXT:POKES+5,14:POKES+9,240:POKES+24,15
  556. 9310 HF=S+1:LF=S
  557. 9315 POKES+4,17:POKEHF,INT(RND(0)*50):POKELF,250:POKES+4,16:RETURN
  558. 9500 PRINT"[147][153] [217]OU HAVE A CHOICE:
  559. 9510 [153]" (null)RESS  (null) WAIT TO REPEAT MODULE 2
  560. 9520 PRINT" [208]RESS  [205] [146] TO GO TO THE DISK MENU
  561. 9530 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"(null)"[175]R$[179][177]"M"[175]R$[179][177]"(null)"[167]9530
  562. 9540 [139]R$[178]"M"[167] [137]9560
  563. 9545 [139]R$[178]"(null)"[167] [137]9560
  564. 9550 [140]:[137]10
  565. 9560 [153]"LOAD(null)ETURNING TO THE DISK MENU
  566. 9570 LOAD"MENU",8
  567. 9580 RUN
  568. 9590 END
  569. 10000 REM  IN MEMORIUM * RAD JANJIC *              R.I.P.  87:11:26
  570. 10001 REM  FOR CORRECTION OR IMPROVEMENTCONTACT BILL CUMBERLAND (416)278-7687
  571.